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ZTITLE ' Reyruct ton decoder’ 
MODULE LibSins_decode (IDENT = ‘'v04-000', 
ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE)) = 


+4 
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MESSE SS SISSIES ISTE TTT TTT TTT TTT TTT Teer e cirri ric t ic iti iii ici iit iiiitiiity 
' 


'® 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RFSERVED. 


* 
7 
i 
} * 
7* * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH TERM F SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'w TRANSFERRED. * 
' 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN. * 
'w CORPORATION. * 

* 

& 

* 

& 

& 

te 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'® 
Le AEE EAE 


FACILITY: 
VAX instruction decoder. 


Portions taken from DBGINS module by KEVIN PAMMETT, 2=-MAR-77 
Author: Tim Halvorsen, 09-Feb-1981 
Modified by: 


v002 TMHOO002 Tim Halvorsen 09-Aug-1981 
Remove SHR psect attribute so Linker doesn't generste a 
non-crf writable section, and the imgact doesn't try to map 
a read/write shared section to the .EXE file. 


v001 TMHO001 Tim Halvorsen 09-Mar-1981 
Use PLIT psect rather than OWN psect for read-only 
data arrays. Make each failure status a separate 
code to aid in debugging the case of a decode failure. 
Remove probes of instruction stream because a PROBER 
instruction determines the access from the previous 
mode, not the current mode. Thus, if you call this 
routine with a stream readable only to the current mode, 
it will fail. — now, we skip the checks and allow 

an access violation to occur within the routine. 
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IBRARY: 
REQUIRE) ; 
VAXOPS 


ybosto-1986 01:52:53 yA 


N 
X-11 Bliss-32 v4. 
SK$V neh MASTER: CSDA 


! Standard VMS definitions 
! Literals and macros related to opcodes 


0-74 Pp 
OSACSDECODE.832;1' 2%" «18 
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= 


: see } VAXOPS.REQ = OP CODE TABLE FOR VAX INSTRUCTIONS ; 
: RO066 1 i Version: "V04-000' ; 
; ROOST 1 ‘ . 
}H sie 1 VRE ERR R REAR AEE EAE AAA EAA RETAKE RARRARARE EEE Py 
; ROO69 1 '® * ; 
; ROO7C 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * : 
: ROO71 1 '‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ‘ 
3 Rots : 7° ALL RIGHTS RESERVED. * ; 
; i® ® e 
; ROO74 1 '® pe abe ees. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; kROO75 1 '® ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; kROO76 1 ' ONE LU TON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
3; ROO77 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; kROO78 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: R0079 is TRANSFERRED. ' : 
3 ‘® & ° 
; kROOB81 1 '® Hes INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; kROOB2 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; si fi } :* CORPORATION. * ‘ 
3 if *® ° 
; rROO8S 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; ROOB6 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
Coe 3 
° ® ® ° 
: ROO8&9 1 PTTITIIILILILIL LLL LLL LLL LLL TLE LILI Tii titi iitTitiTitie 4 
; ROO9O0 1 3 
; kOO91 1 i author: : 
: 4954 1 i KEVIN PAMMETT, MARCH 2, 1977. ‘ 
; kROO9S 1 i : 
; ROOSS 1 i Modified by: : 
; ROO9S 1 i ; 
; ROO96 1 i v001 TMHOO01 Tim Halvorsen 09-Feb-1981 : 
; ROO97 1 i Rewrite macro invocations to supply the entire SRM ; 
; kROO98 1 i operand specification, to allow checking for literals ; 
; ROO99 #1 ‘ in write operands, and other invalid conditions. . 
; kO100 1 ie : 
; kRO101 1 : 
; kO102 1 LITERAL : 
3; kO1035 1 ; 
: RO104 1 ! ; 
; kO10S 1 ! OPERAND ACCESS TYPE (A,B,M,.R,V.W) - 1 BIT WIDE 3 
3 RO18 1 : > 
3 id} 1 ; 
; ROWS 1 ACCESS_A = 6. ' EFFECTIVE ADDRESS | : 
; kRO109 1 ACCESS _B = 0, ' BRANCH DISPLACEMENT 3 
; kRO110 1 ACCESS_R = 1, ! OPERAND IS READ-ONLY : 
; RO111 1 ACCESS _W = 0, ! OPERAND IS WRITE-ONLY ; 
3 aotig 1 ACCESS_M = 0, ' OPERAND IS sf hy F 
; ROWS 1 ACCESS_V = 0, ! ADDRESS A SET OF 2 REGISTERS : 
3 RO114 1 3 
3; ROWS 1 : ; 
; 4h : OPERAND DATA TYPE (B,W,L.Q,F,D,G,H.V) - 3 BITS WIDE : 
3 RO118 1 | : 
; kRO119 1 DATA_B = 0. ' BYTE CONTEXT ; 
; kO120 1 DATA_W = 1, ! WORD CONTEXT 3 
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; ROI121 1 DATA_L = 2, ! LONGWORD CONTEXT : 
; ROI : 1 DATA_G = i QUADWORD CONTEXT : 
; ROWS 1 DATA-F = DATALL, | FLOATING CONTEXT : 
; RO1O4 1 DATA_D = DATA_9, | FLOATING DOUBLE CONTEXT (8 BYTES) : 
; RO125 1 DATA_G = DATA_Q, ' FLOATING GRAND CONTEXT (8 BYTES) : 
: R01 $ DATALH = 4, i FLOATING HUGE CONTEXT (16 BYTES) : 
; RO128 1 : ‘ 
; ROW 1 | BRANCH DISPLACCMENT TYPES : 
; RO1S0 1 : ‘ 
; RO131 1 ‘ 
; RO} g 1 NO_BRANCH = 0, ! NO BRANCH ; 
; ROI 1 BRANCH_BYTE = 1, ! BRANCH BYTE : 
: RO134 1 BRANCH-WORD = 2; i BRANCH WORD : 
: RO 1 
; ROI ; 1 ! THE FOLLOWING MACRO IS USED TO BUILD SUCCESSIVE ENTRIES FOR : 
; RO138 1 | THE TABLE. EACH MACRO CALL CONTAINS THE : 
; ROW39 1 ' INFO FOR 1 VAX OPCODE ENTRIES ARE SIMPLY : 
; RO140 1 i BUILT IN THE ORDER THAT THE MACRO CALLS ARE MADE - : 
: RO141 1 | THE ASSUMPTION IS THAT THEY ite BE MADE IN ORDER OF : 
; R014 1 | INCREASING OPCODE VALUES. THIS IS NECESSARY BECAUSE : 
; ROW43 1 i THE TABLE IS ACCESSED BY USING A GIVEN OPCODE AS THE : 
>; ROW“G 1 i TABLE INDEX. : 
3; ROW4S 1 ! ‘ 
; RO14G 1 : 
; ROW“? 1 COMPILETIME $BRANCH_TYPE=0; : 
; RO148 1 : 
> RO149 1 MACRO ; 
; RO1SO 1 GET_1ST(A,B) = AX, : 
; RO151 1 2ND(A,B) = BE, : 
; mRO13¢ 1 OPERAND (NAME) = : 
; MROISS 1 Z1F XNULL (NAME) : 
3 MROI54 1 XTHEN : 
; MROISS 1 : 
; MRO156 1 XELSE : 
3 MRO157 1 BEGIN : 
; mRO138 1 IF NOT XDECLARED(XSTRING('ACCESS_* ,GET_1ST(XEXPLODE (NAME) ))) : 
: men iey { FI RWARN( "Invalid access type ',GET_1ST(ZEXPLODE (NAME) )) : 
; mROT6G ! ; IF NOT ZDECLARED(XSTRING("DATA_* ,GET_2ND (XEXPLODE (NAME) ) )) : 
3 MROTEG | XWARN("Invalid data type ',GET_2ND(XEXPLODE (NAME) )) ; 
> MROI6S 1 i XFI : 
; anid 1 ZIF NAME EQL ‘BB’ ‘ 
3 MROI67 1 XTHEN : 
3; MR 168 1 ZASSIGN(SBRANCH TYPE, BRANCH_BYTE) : 
7 MR 1g 1 ZELSE XIF NAME EQL ‘Bw’ : 
> MRO1 9 1 XTHEN : 
; MROI71 1 ZASSIGN(SBRANCH_TYPE, BRANCH_WORD) : 
> MR 17 1 XFI RFI : 
; MROI7S 1 ZNAME (DATA. * .GET_2ND(ZEXPLODE(NAME))) + : 
7 MROI74 1 INAME ('ACCESS~",GET_1ST(ZEXPLODE(NAME))) * 3 : 
3 mROI175 «1 5 : 
: OR 176 1 XFI %, : 
; RO177 1 ’ 
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; MROI78 «(1 OPDEF (NAME, ont OP2, OP3, OP4, OPS, OP6) = 7 
: mR 73 ZASSIGN(S NcSBRANCH fYPE.NO_BRANCH) ‘Finke anal is 
° : code name in P} 
; MRO181 1 Z1F cer 1 Meee cp ODE(NAME)) EQL ‘x’ ' If undefined opcode, : 
: 7. : ¢ 1 DGET ~2ND (ZEXPLODE (NAME) ) EOL "3° ; 
: ROIS 1 NOT_AN_OP ' then no operands 3 
S MROTAS 1 nELSE . ; 
: ad 8 } “Fl LENGTHMe ! else, number of operands ; 
: MROIBB 1 SPERAND(OP1)*%4, ! Define each operand ; 
: not § 1 OPERAND(OP2) OR ° : 
; MROI 1 OPERAND (OP3)*4, j : 
; MROI91 1 OPERANE COPe) OR ; 
3 8 9b 1 OPER OP5)*4, ‘ 
; MROI9D 1 OPERAND(OP6) OR 2 
: RO toe ! SBRANCH_TYPE*42; ! Define branch context ; 
3 hh) 1 ! ; 
$ Abd : MACROS TO ACCESS THE FIELDS. : 
: RO 300 } MACRO 
; ROSOs 1 OP _NAME = 0,0,32,0%, ' OPCODE MNEUMONIC (6 RADSO CHARS) P 
: RO 08 1 OP“NUMOPS = 4.024 6%, i NUMBER OF OPERANDS ; 
; kO20 1 OP_CONTEXT(I) = 4+#]/ ((I1) AND 1)*4, 3, 0%, ! OPERAND Fal ; 
> RO204 1 OP~ DATATYPE (1) = 441/82, ((1) AND 1)#4 +°3, 1, 0 %, ! OPERAND DATA TYPE : 
3 RO 05 OPBR_TYPE = 7,4,4,0 %: ' Context OF BRANCH DISPLACEMENT : 
; RO id 1 LITERAL 3 
; kRO2O8 1 OPTSIZE = 8, ' EACH het BLOCK IS 9 BYTES LONG. ; 
; kRO209 1 MAXOPCODE = ZX'FD', ' MAXIMUM VAX OP CODE WHICH IS VALID. ’ 
3; kRO210 1 MAXOPRNDS = 6, ' MAXIMU mn NUM BER OF OPERANDS PER INSTRUCTION. a 
3 nosis 1 ! NO INSTRUCTION 1. HAS BRANCH TYPE ADDRESSING : 
; RO \¢ 1 ' CAN HAVE THIS MANY OPERANDS UNLESS WE CHANGE 3 
3; =RO21 1 ' THE ORGANIZATION OF EACH OPINFO BLOCK. $ 
; ROZ214 1 BITS _PER_BYTE = 8, ' NUMBER OF BITS IN A VAX BYTE. $ 
; kRO21S 1 AP_REG = \g- ! R OF PROCESSOR REGISTER, ‘AP’. 3 
3 ~ i$ ! PC_REG = 15, ! NUMBER OF PROCESSOR REGISTER, ‘PC’. 3 
; kRO218 1 C_REL_MODE = 8, ' ADDRESSING MODE: Wisk $ 
3; kRO219 1 AT-PC_REL_MODE = 9, ' ADDRESSING MODE: a(PC) 3 
4 Re , : INBEXING_FODE = 4, ! ADDRESSING MODE: XXX RX) : 
3; ® § 1 SHORT_LIT_AMODE = Q. ! Short Literals fit right into the mode byte. 3 
3 OR 1 REGISTER_AMODE ‘ ' Register mode addressing. 3 
: 6 1 REG DEF _AMODE = & i Register deferred addressing mode. 3 
; RO225 1 uto. DEt_ pe : ! auto decrement addressing mode. 3 
: R $ 1 INC~ AMO + ! Auto Increment addressing mode. 3 
; OR 1 DSP “BYTE ARODE = 16, i ALL of the displacement modes start {rom : 
: R 3 1 ! here. See ENC_OPERAND() IN DBGENC. B3 3 
; R 1 DISPLONG AMODE = 14, ; 
: ~ ; : CA SIZE = ' SIZE, IN ASCII CHARS, OF OPCODE MNEMONIC. : 
3 § 1 MACRO é 
; R 1 DSPL_MODE = 0,4,4,0 %, |! ADDRESSING MODE BITS FROM THE DOMINANT MODE g 
: =6RO 1 ' BYTE OF AN OPERAND REFERENCE. 
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; kRO235 1 DOM_MOD_FIELD = 0,5,2,1 %, 

3 Re : 1 ' BITS WHICH WE PICK UP TO va 4 ig EL GgRTAsn 
3 OR 1 i TYPES OF DOMINANT MODES. SEE DBG 

: RO 1 SHORT_LITERAL = 0,0,6,0 i, 

; «RO 1 ' HOW TO EXCTRACT A ‘SHORT LITERAL’ FROM 
; RO240 1 ! THE INSTRUCTION STREAM. SEE SRM. 

3 RO241 1 AMODE = 0,4,4,1 %, ' BITS OF DOMINANT MODE ADORED > iN BYTE 
: RO og 1 ! WHICH SPECIFY THE ACTUAL MODE. 

>; RO245 1 AREG = 0,0,4,0 %, ' BITS OF DOMINANT MODE ADDRESSING BYTE 
3 RO244 1 { WHICH SPECIFY REGIS NUMBER, ETC. 
; RO246S 1 NOT_AN_OP = 15 % ' OP_NUMOPS INDICATOR FOR UNASSIGNED OPCODES. 
: RO 46 RESERVED = ‘UNUSED’ %; | NAME OF RESERVED OPCODES. 

; RO rt 1 

; RO246 1 MACRO 

; kO250 1 NEXT_FIELDC INDEX) ' USED TO GET A; ADDRESS OF THE NEXT 

; RO251 1 } FIELD OF A BLOCK. 

3 Re 38 : = (INDEX),0,0,0 2%; 

; kRO2S4 1 ' MACROS AND LI TERALS SPECIFICALLY FOR INSTRUCTON ENCODING. 

3 kRO25S 1 ! ("MACHINE -IN 

; RO 28 1 

; RO 1 LITERAL 

; kRO25S8 1 BAD_OPCODE = 1, ! CAN'T INTERPRET THE GIVEN ASCII OPCODE. 
; RO2S9 1 BAD “OPERAND = ¢° ' UNDECODABLE OPERAND REFERENCE. 

; RO260 1 BAD ~OPR NDS 2 3, ! WRONG NUMBER PER S. 

3 o : INS_RESERVED = 4; i GIVEN OPCODE IS RESERVED. 

; RO265 1 LITERAL 

; RO264 1 ! We only have to special-case a few OPCODES, 

; kRO265 1 

; RO o8 1 

; RO267 1 OP_CASEB = Xx'8F', 

; RO268 1 OP- CASEW = ZX'AF', 

; RO 34 1 oPp- CASEL = ZX'CF'; 

eis ae ee 

3 a ; TOKEN VALUES USED FOR ENCODING/DECODING 

3; RO274 1 !e= 

; kRO275 1 

3; kRO27 1 LITERAL 

; RO277 1 indexing_token = 240, 

3 + a 1 val_token = 241, 

; OR 1 byté_val_token = val. token + ZSIZE(VECTOR } BYTE}. : 3¢¢ 

; =RO 4 word_val_token = val"token + ZSIZE(VECTORL1,WORDJ), ' 24 

3 4 1 #1 brch_token = 244, 

3; eR § 1 Long_ ~ token = val_token + ZSIZE(VECTORC1,LONG)), ! 245 

; OR 1 at arog. token = 246, 

; ® 1 regis er token = 247, 

; RO28S 1 Lit_token = 248, 

3 1 bad_ token = 249; 

Be 

; OR 1 ! The fot loving structure declaration selects the proper opcode 

: = 4 { ! table by looking for the extended opcode opcode(s). 


F 
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: R 3 1 STRUCTURE OPCODE, TBL COPC,0,P,S,E) = 

: OR EXTERNAL LIB$GB_OPINFO1 : BLOCKVECTORE96. ,OPTSI E.B BYTE 16); 

> ROO9S EXTERNAL LIBSGB_ “OPINFO2 : BLOCKVECTOR OPTSIZE, BYTE]; 

: OR % LOCAL OFFSET; 

: R09 OFFSET = 0; 

: R 38 IF (OPC AND ZX°FF') NEQ ZX'FD' 

; RO THEN LIB$GB_OPINFO1COPC, .OFFSET,0,8,0 ‘ byte opcodes 

> RO300 ELSE LIB$GB~OPINFO2 topesoB) of FSET,0,8,0 ! Two byte opcodes 
: RO 91 END<P,S,E>; 

; RO 88 1 ! VAXOPS .REQ - last Line 
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KSVMGH ASTER: t$ Year SRC JDECODE .832;1 (2) 


s= 


SHG PCE dessryr en cera IEseie Ca 


ZSBTTL ‘Module declarations’ 


X-1 
SK$ 


5 


i] 
; Table of contents: 


~og~ J Link CALL: GLOBAL ( 11) 
r nxage = re 
append_ Linkage = JSB(REGIST ESO. RERISTER=1): 


ARAN SSRIES, 


FORWARD ROUTINE 
be pe decode, 
efrand: ptr_linkage, 


. ’ decode an instruction. 
brane type: ptr_linkage, 


tt ss 
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' 
' 
' 
isplatement: ptr_Linkage, : —o. displacement toon instruction 
ns pennants : print gupestey context of an operand 
put_reg: NOVALUE, } nt a register reference. 
Sppend address: NOVALUE, : Kppend an seerese 
append_hex: NOVALUE, ' Append a hex vote 
append_ “decimal: tA } apeena an ung gned, decimal value 
append_rad50: NOVAL i Apps end a RADSO string 
append_string: oe (linkage NOVALUE; ! Append string to the output buffer 


! 
Psect declarations 


1 

1 

1 

1 

1 

1 

1 

1 

4 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

1 

1 

1 

1 

1 

1 

1 

1 PSECT 

1 OWN = z$debug_code(PIC WRITE ,EXECUTE,ALIGN(2)), 
1 CODE = z$debug_code(PIC,WRITE,EXECUTE ,ALIGN(2)), 
: PLIT = z$debug_code(PIC ,WRITE EXECUTE ,ALIGN(2)); 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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' 
: Equated symbols: 


LITERAL 
tr 


false = 6, 

round _brackets = 

square_brackets = 
no_bractkets = 


0 : These are all flag parameters to 
: the routine ‘PUT_REG’. 


OWN storage for up-level references 


OWN 
user_symbolize_routine, 


Address of user symbolize routine 
user_buffer_address, 


Address of user put er storage 

Size of user bu 

# bytes left in hail buffer to fill 
Value of last operand 


user_buffer_s page: 
user_buffer_le 


Dd. 
WORD, 
Last_literaT_value; 


' 
Macro to invoke a command, and return if the resultant value is an error 
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0 
return_if_error(command) = 
BEGIN 


s 
5 - 
§ i LOCAL 
i 
: 6 
4 
: : NOT .status 
§ M RETURN .status; 
END; 
5 


' 
} Macro to probe read accessibility of a data segment 


' 
: Define message codes 


L 
b$_accvio = 0, 
b$_noinstran = 2, 
b$_numtrunc = 4; 
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9 CRO 
re 2 prebelaferecs.Longen? = 
og 4 ! BUILTIN PROBER; 
tz 4 cen” PROBER(£REF (0) ,ZREF (Length) ,address) 
45 & i RETURN Lib$_accvio; 
4g rs true 
4 END; 
48 
49 ! 
39 Macro to append a string to the output buffer 
5 CRO 
54 i] append(string) = 
55 M & pend s Choa tscungcount Carein ),UPLIT BYTE(string) 
3 ZIF XLENGTH GTR 1 XTHEN ,ZREMAINING XFI)2; 
8 i External storage 
59 ! 
60 
61 EXTERNAL 
6¢ Lib$Sgb_opinfo: opcode_tbl; ! Table describing VAX instruction set 
64 
65 
: 
% 
71 


status; 
pFetus = command; 
| 
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: 
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9 
; 
g 
3 
; 
9 
é1 
$8 
$5 
ef 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1! 
1 
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1 
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GLOBAL ROUTINE LibSins_decode(stream_pntr, outbuf, retlen, symbolize_rtn) = 


: This routine examines a byte stream ae | it is passed 
a pointer to, and tries to output what instructions 
this corresponds to symbolically. 


i Inputs: 
stream_ptnr = Address of a byte pointer to the instruction stream. 
outbuf = Address of a buffer Coagriptor to receive the 

on 


' 
' 
' 
' 
{ 
' 
' 
; decoded instruct 

symbolize_rtn = Address of a routine to call to convert an address 
' 

' 

' 

' 

' 

' 


i Qutputs: 
i RO = status code 
The stream_pntr is updated to point to the next instruction. 


BEGIN 


BUILTIN 
NULLPARAMETER; 


MAP 

stream_pntr: REF VECTOR C,LONG), 
outbuf: REF BLOCK (,BYTEJ) 
retlen: REF VECTOR C,wORDS; 


GLOBAL REGISTER 
stream_ptr=11: REF VECTORC,BYTE]; ! Points to the instruction stream 


L 
opcode: WORD; ! Instruction opcode 


stream_ptr = .stream_pntr (0); ! Get pointer to instruction stream 
user_buffer_size = .outbuf Cdsc$w_length); 

user_buffer_address = .outbuf (Cdsc$a_pointer]; 

user_buffer_left = .user_buffer_size; 
IF NULLPARAMETER(4) 

THEN 


user_symbolize_routine = 0 


! If 4th parameter unspecified, 
! then set no routine 
user_symbolize_routine = .symbolize_rtn; 


probe(.stream_ptr,1); ! Exit if we can't read the opcode 


' 
Pick up the opcode and it check for validity. 


opcode = .stream_ptr (0); ! Get first byte of opcode 


wit 
DISKSVMSMASTER: CSDA.SRCJDECODE .832;1 
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i ,' NEQ 0 AND .i LSS .Lib$Sgb_opinfo C.opcode, op_numops] 
append(',"); 
ND; a 


For CASE instructions, increment the stream pointer past the 
last offset in the List. 


MRI = 3 3 3 3 BO SO99SCSSS 


FUN" OOONOUES WN —O0® 


PUPP AAA AMAA AAAI 


PORES Lae 
SOOOCOOOOOOSOOOoOoooOo 


-opcode EQL op_casew 
OR .opcode EQL op_casel 


ule declarations -Sep-1 DISKSVMSMASTE :CSDA.SRCJDECODE .B832;1 ) 
: : og fr gencede EQL %x'FD" ! Check to see if 2 byte opcode : 
; 4 BEGIN ! It is. Get the next byte of opcode. ; 
; g 47 opcode = .stream_ptr (1]*8 + .opcode; , “ : 
$ 4; stream_ptr = .stream_ptr + 1; ; 
3 5 ot? ND; : 
; 475 IF .opcode EQL x'FF' ! If bugcheck opcode, ; 
3 : o/s AND .stream_ptr [1] EQL %x'FE' ; 
: 47 THEN 3 
: 240 4 BEGIN 3 
; 24 47 probe(.stream pire ! Make sure all 4 bytes are readable : 
> 26 480 append('BUG_CRECK #'5; ; 
; 26 481 append_hex(.(.stream_ptr+2)<0,16,0>,2); : 
; 246 g pp reaa_pntr = ,stream_ptr+4; ' Point to next instruction é 
: ri : A LLPARAME TER (3) ! If RETLEN specified, : 
> 26 oa? retlen (OJ = .user_buffer_size - .user_buffer_left; ; 
; re 4 RETURN ss$_normal; : 
>; 24 487 END; : 
; 250 488 $ 
: 2) tt IF .Lib$gb_opinfol.opcode, op_numops] EQL not_an_op ! If unknown opcode, ; 
; 38 33 RETURN Lib$S_noinstran; ! Unable to translate instruction : 
: 255 9 ; 
; 2$ 0494 ! Bump the instruction pointer up past the opcode, ; 
: ser 0495 and output the character sequence which corresponds to it. : 
: 259 bc99 : 
; rs Be98 stream_ptr = .stream_ptr + 1; : 
: 66 05 append_rad50(op_ch_size/3, Lib$gb_opinfo C.opcode, op_name]); : 
; 26 5 appendt' '); 3 
; 264 5 3 
; 265 5 ! 3 
: v4] 5 : Loop, encoding how each operand is referenced. ; 
; 268 ; 
5 +4 Incr I FROM 1 TO .Lib$Sgb_opinfo C.opcode, op_numops] : 
; BEGIN : 
s af return_if_error(ins_operand(.i, .opcode)); : 


IF oggcese EQL op _caseb ! If CASE instruction, 


LAE ANS DECODE st a. oo es | 15-Se0-1984 ot: a8: 8 ie {ey Strat Yen seeSpecooe. 832;1 rm Ry 
7 
es 


N 
stream_ptr = .stream_ptr + (.last_literal_value+1)*2; 
' 
Return a pointer to the beginning of the next instruction. 


CGOOOCGOCOOOOOOOOCOO 
UUM 8 
WNWNWIWAAWIWWwiwnonororer 


SOOWONOUE WN "OOOO 


31 

9 

if NOT NULLPARAMETER(3) ! If RETLEN specified, 

38 retlen (0) = .user_buffer_size - .user_buffer_left; 

38 stream_pntr (0) = .stream_ptr; ! Return pointer to next instruction 
64 RETURN ss$_normal; 

02 END; 


-TITLE LIBSINS_DECODE Instruction decoder 
SIDENT \V04-000\ 


-PSECT ZSDEBUG_CODE, PIC,2 
00000 USER. SYMBOL IZE_ROUTINE: 
00004 USER_BUFFER ADDRESS: 
00008 USER_BUFFER SIZE: 
QOOOA USER_BUFFER LEFT: 
0000C LAST_LITERAL_ VALUE: 
10 P.AAA: ASCII \BUG_CHECK #\ ; 
1D PIAAC: TASCHE NAS 


.EXTRN LIBS$GB_OPINFO, LIB$GB_OPINFO1 
-EXTRN LIBS$GB~OPINFO2 


23 20 48 43 45 48 43 SF 47 55 $¢ 
20 


OFFC 00000 ENTRY LIBSINS DECODE, Save R2,R3,R4,R5,R6,R7,R8,- ; 0411 
O0V CF 9E 0000 MOVAB  APBE ND/STRING, R9 ; 
38 9900 6 G EF 3 9 MOVAB “OP! ¢. R : 
G EF 9€ MOVAB LIBS$GB~OPINFO1, R : 
4 AF 9 1 MOVAB USER BOFFER SIZE, R6 : 
8 BC D 1 MOVL § @STREAM_PNTR, STREAM_PTR ; 0448 
8 ac D 1D MOVL § OUTBUF, “RO > 0450 
66 60 8B 1 MOVW (RO) USER BUFFER SIZE ; 
FC Ab 04 AO D 4 MOVL  4(ROS, USER_BUFFER ADDRESS > 0451 
02 A6 bb 9 MOVW  —>USER but YPER” “SIZE, OSER_BUFFER_LEFT > 0452 
04 6¢ PBs CAP) > > 0454 
5 iF BLSSU_1$ F 
10 at p TSTL 16(AP) : 
0 BNEG ; 
F8 Ag , 1$: CLAL YSER_ SYMBOL 1ZE_ROUT INE > 0456 
05 11 A BRB : 


8 
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Oe 008 Module declarations ee ets aS | ee Vet eH ne ret 
FB AG 10 AC DO 0003C 28: MOVL § SYMBOLIZE_RTN, USER_SYMBOLIZE_ROUTIN ; 
4 B 5 if $f MOVZBW (STREAM_PTR), OPCODE - , : 
OOFD BF 4 : As CHP OPCODE, #253 : 
0 01 A 1) 48 MOVZBL 1(STREAM_PTR), RO : 
50 : 4 ASHL #8, RO, RO : 
4 A ADDW2 RO. OPCODE : 
2 B Re 4$ Ay ouL STREA may : 
OOFF BF ; 8 0 3 cP Re. SEs : 
FE BF 01 AB 4 0 6 CHPB (STREAM_PTR) , #254 : 
51 08 A6 4 0 69 MOVAB P.AAA, R1 : 
50 0B D 060 MOVL : 
69 16 000 9 JSB APPEND_STRING : 
02 pd 007 PUSHL # : 
7E 02 AB 3C 00074 MOVZWL 2(STREAM PTR), =(SP) : 
0000v CF 02 FB 00078 CALLS #2, APPERD_HEX : 
06 8B 04 AB 3F 007D MOVAB 4(R11), a@STREAM_PNTR : 
0 6c 9 0082 CMPB sé AP), #3 : 
0B 1F 0008 BLSSU a$ ; 
0c AC 05 00087 TSTL  12¢AP) : 
06 1 OO0BA BEQL = 5$ : 
oc BC 66 02 Ad A’ 0008C SUBW3 USER_BUFFER_LEFT, USER_BUFFER_SIZE, @RETLEN : 
OOFA 31 009¢ 5$: BRW 21$ ; 
51 DO 00095 6$: MOVL #4, OFFSET F 
3 D4 00098 CLRL = R33 ; 
FD BF 2 91 O009A CMPB 3 soaR2, «#253 ; 
08 13 0009E BEQL «6s 7$ ; 
06 00A0 INCL R3 ; 
50 6142 : OOA2 MOVAQ (OFFSET)CR2J, RO ; 
50 57 CO 000A6 ADDL2 7, RO : 
O¢ 11 000A9 BRB aS ; 
50 52 F8 BF 78 OOAB 7$: ASHL #8, R2, RO ; 
50 6140 7 00B MOVAQ (OFFSETSCROJ, RO : 
50 58 CO 000B4 ADDL2 R8, R : 
OF 60 04 00 FD 00B7 8$: CMP7V #0. #4, (RO), #15 : 
04 : O0BC BNEQ ; 
50 2 D O0BE MOVL #2, RO F 
04 000C RET : 
5B 06 000C2 9$: INCL § STREAM_PTR : 
51 D4 00064 CLRL OFFSET : 
99 5 59 0 C6 BLBC ~=—_- R3,,_ 108 : 
0 614 ¢ MOVAQ COFFSET)CR2I, RO ; 
50 37 ¢ OCD ADDL2 R7, R : 
50 5 F8 gf 78 Og 10$:  ASHL #8, R2, RO : 
3 614 7 0D MOVAQ §¢ FFSETSCROJ, RO : 
C DB ADDL2 R8, R : 
DD OOODE 11$:  PUSHL R ; 
DD OO0E PUSHL # ; 
0000v cf FB OOOE CALLS #2, APPEND_RADSO ; 
1 13 AB OD E MOV P.AAB, R1 ; 
50 0 p EB MOVL #2, R : 
6 FE JSB APPEND_STRING : 
51 04 D F MOVL #4, OFFSET : 


mu 8 
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VOe+000 Module declarations 127808- 1382 94:38:88 DI SKSVMEHASTERSLSDA-SRCSDECODE .832; 1 (3) 
52 4 3C 000F3 MOVZWL OPCODE, R2 : 
3 ps rb CLRL : 
FD soaBF | F CMPB sea, #253 : 
08 1 FC BEQL 128 : 
6 FE INCL R : 
50 6148 7 1 MOVAQ (OFFSET) CR2I, RO : 
se HP B88 aaBte Hae 7 
50 52 a gf 78 00109 12$: ASHL #=8, R2,_RO : 
5 6149 rE 01 MOVAQ (OFFSETSCROJ, RO ; 
50 58 CO 0011 ADDL2 ’ : 
54 60 04 9 EF oi 13$: EXTZ2V #0. #4, (RO), R4& : 
D4 OO11A CLRL : 
11 0011C BRB 17$ : 
DD OO11E 14$: | PUSHL 2 + 0510 
53 DD O1 PUSHL I : 
0000v CF g FB 1 CALLS #2, INS_OPERAND : 
68 E9 001 BLBC STATUS, ~22$ : 
5 03 012A TSTL 1 + 0512 
28 13 0012¢ BEQL 178 : 
51 4 00 0012€ MOVL #4, OFFSET : 
09 55 Eg 131 BLBC =_«aR'Sj._- 158 : 
50 6142 : 0134 MOVAQ  (OFFSET)CR2], RO : 
50 57 CO 00138 ADDL2 7, RO : 
0c 11 00138 BRB F 
50 52 F8 8F 78 00130 15$ ASHL 4#-8, R2, RO : 
50 6140 rE 0142 MOVAQ  (OFFSETSCROJ, RO : 
50 58 CO 00146 ADDL2 ‘ : 
53 60 04 00 FD 0149 16$: CMP2V #0. #4, (RO), I : 
09 1 OO14E BLEQ 3=s«17$ : 
51 15 Ab 9 0015 MOVAB P.AAC, R1 : 0514 
50 01 DO 0014 MOVL @# : 
$9 1 137 JSB APPEND_STRING : 
c1 53 4 £3 00159 17$:  AOBLEQ R4, 14$ : 0507 
008F FF 52 Bi 00150 CMPW Re #143 : 0522 
OF 13 00162 BEQL «si ; 
OOAF 8F 52 Bl 0164 CMPW Re #175 : 0523 
07 13 00169 BEQL -18$ : 
OOCF 8F 32 B1 0168 CMPW Re #207 : 0524 
0 if 01 BNEQ 19§ : 
50 04 Ab 0172 18$ MOVL LAST LITERAL_VALUE, RO : 0526 
38 02 AB4 : 017 MOVAW  2(STREAM_PTRYLROJ, STREAM_PTR : 
0 6C 017B 19S: CMPB sé), «#3 : 0532 
0B iF O17 BLSSU : $ F 
0c AC 05 0018 TSTL (AP) ; 
06 1 ot BEQL 20$ : 
0c «BC 66 02 A6 A3 001 SUBW3 USER _BUFFER_LEFT, USER_BUFFER_SIZE, @RETLEN ; 0534 
04 BC 5B OD 1 O$:  MOVL §STREAM_PTR, ~aSTREAM_PNTR : 0536 
0 01 p 18F 21$:  MOVL #1, RO : 0538 
4 00192 228: — RET : 0540 
; Routine Size: 403 bytes, Routine Base: ZSDEBUG_CODE + OO1E 
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ZSBITL_ "INS_OPERAND = Output instruction'’'s operand’ 
ROUTINE ins_operand(index, opcode): ptr_linkage = 


LAGS IWS .DECODE 


—) 
on 
vc 
ma 


AX Bliss-32 V4.0 ge 
I R 
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! Print out a reference to an instruction operand. 
Warning: 


1) there is code in the ‘deferred’ macro which will cease 
a vet when/if we change the representation of true 
and false. 

2) the local macros. below, check for the indicated addressing 
modes ig | given that they appear in the code where they 
do = ie, the checks take advantage of what we know about 
which cases we have already eliminated, etc. 


WEEE EEE YH 


Inputs: 


stream_ptr = a byte pointer to the first byte of the instruction 
stream which begins the reference to this operand. 
this byte is what we refer to as the dominant mode. 

index = ordinal of which operand we are on. this is needed to 
ecide the ‘context’ for this operand if pc-relative 
addressing mode is used. 

opcrde = The opcode we are currently working on. 

(This parameter has already been validated.) 


Outputs: 


RO = status code 

The stream ptr is incremented to reflect how much of the instruction 
stream we Rave ‘eaten up’. This pointer should point to the beginning 
of either the next instruction, or the next operand reference, 
depending on how many operands the current instruction has. 


; Local macros used to check for the indicated addressing modes. 


CRO 
registr (mode) ! register mode addressing. 
= (mode EQL 5) &, 
de ferred(mode) ! those which begin with ‘a are 


= (mode LSS 0 AND mode)% 
9 - a(rn)+, 

b - abyte(rn), 
d - aword(rn), 


PUTS EBS BS BE EEE EAN III PNP NINA 2 2 2 SS SS SS OOOO 


f = dlong(rn), 
or ony of these + indexing. 
the thing which is common to only these 


modes is that they all have the sign 
bit set and are odd! 


ee eee rl ah ab ab ab ab bh hb ob th db db dh bh db 4b ah ah ah eh a ch a ah ad ak ad a a a aa eee ee | 


10909 C9 C9 09 08 SII SINS SNS NOAA AAA AAA OMIM 
SSSR SS reeks pO SONOS OOo a rt oo te one nto Ben aetna § 


Be Se Se Se Ge Be Be Be Se Be Ge Se Ge Be Be Ge Se Ge Se Fe Fe Ge Ge Se Ge Ge FH FH Ss Gl Se Se Se Se Se Se Se Se FHSS SH Se Se Se Se Se Se Se Se Se Sees teVeaseses 
Ee TD ea |e a | ee ee ee i ie i ne wee fe ele ololololololololololelolelolol ool ololololo lo) 
PORPOROPOROPOROPONOPONONOPONOPONUNINONIN 2 2 2 9 


AAAA AINA AAA AANA AAA AAW WA.A AWWA WIWNWN AAA ANI WNW 


o 
So 


autodec (mode) see if mode is auto decrement. 
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Vv +h08 INS_OPERAND = Output instruction's operand 1e-8ep-19 4 9h: O8i88 DISKSVMEHASTERSLSDA SRCSDECODE .832; 1 . (4) 

; 361 é 598 = (mode EQL 7)%, ' this check is right from srm. : 
; 36 600 autoinc (mode) ! mode is auto increment ; 
: 364 601 = (mode LSS 0)2%; . 
: 365 ooe ! this check depends upon the fact that ; 
3 °$] 60 ! we extracted the mode with sign extension, ; 
; 604 ! and that we have w reed? eliminated : 
; re oR? ! many of the other possibilities. : 
; S70 S609 EXTERNAL REGISTER ; 
; a! ss: stream_ptr=11: REF BLOCK C,BYTE]; ! Points to the instruction stream : 
ae get? LOCAL > 
: 374 611 flag ! indicates which type of displacment we have. : 
: 379 beig displ, ! the actual displacement. : 
; 376 061 disp_size, ! the size, in bytes, of a displacement. : 
; a 0614 dom_oprnd, ! operand which we extract from the ; 
; 378 0615 ! dominant mode byte. it may be rn, : 
; 379 0616 ! rx, or a literal. (srm notation). ; 
; 380 0617 dom_mode; ! the pr inary addressing mode comes from : 
; oe) 0618 ! this dominant byte as well. ; 
; Sg 0619 ; 
; 38 0620 ! ; 
; 384 0621 ! We have to consider the possibility of > 
3 3eo 06 ¢ ! so-called ‘branch type’ addressing first : 
: 386 06 ' before anyeoine else because otherwise you cannot ; 
s Ser 0624 ! differentiate short Literal from byte displacement 2 
; 388 0625 ! branching. : 
; «389 0626 ! ; 
; 390 0627 : 
3 3) be 3 IF branch_type(.index, .opcode) ! If we can output branch operand, : 
; 335 0630 RETURN ss$_normal; ! Return with updated stream pointer : 
3; 394 0631 3 
; 395 Boag ! ; 
: 396 063 ' See that we can access at least the operand byte. : 
s a7 bee ! 3 
; 398 635 : 
; 399 Boas probe(.stream_ptr, 1); ! Return if we can't read the operand $ 
: 400 063 : 
; 401 0638 : : 
; 402 0639 ! Extract the needed fields from the first byte of 3 
; 403 0640 ! the operand specifier. We extract some fields : 
3; 4 641 ! with sign extension simply because that makes ; 
; ? 5 § ; making various tests more convenient. : 
3 209 7 : 
: 408 5 dom_mode = .stream_ptr Camode); : 
; 409 $ dom_oprnd = .stream_ptr Careg]; : 
; 410 64 : 
3 «6411 $68 é : 
3 tig ! Take special action for indexing mode. : 
; 41 50 : : 
: 416 51 2 
3 6415 26 $ 
3 ret 5 : 
; 41 654 BEGIN : 


IF .dom_mode EQL indexing_mode 

THEN 
j 
j 


Se ee ee ee ee f 
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ya 
— 
co 


! handle indexing mode recursively. 


— 


eeroenair = stream_ptr Cnext_field(1)]; 


: 419 6 

; 420 6 

; 421 6 return_if_error(ins_operand(.index, .opcode)); 

3; 4 ¢ 6 put reg(.dom_oprnd, square_brackets); 

: 4 6 ETORN ss$_normal; 

> 426 66 END; 

> 425 66 

3 : 8 oer ! Simple modes are easier: 

3 2 3 Ree? ! First see if there will be a Literal or displacement in the operand. 
3 486 O66? return_if_error(displacement(flag, displ, disp_size, .index, .opcode)); 
; 43 0669 ! Begin checking for the addressing modes which begin 

> 43 0670 ! with special characters since we have to print them 

; 434 0671 ! first. We try to handle similar cases with the same 

3 $3? Berg ! code, getting the differences out of the way first. 

; 437 0674 IF deferred(.dom_mode) 

; 438 0675 THEN 

; 439 0676 append('a') 

; 440 067 ELSE 

> 441 0678 IF autodec(.dom_mode) 

: 44 0679 THEN 

3 44 068 append('="); 

: 444 06 

3; 445 068 ! Next we have to consider displacements or Literals. 

: 446 068 ! Whether or not this is the case has already been 

: 447 068 ! determined in the call to ‘displacement’, above. 

; 448 0685 

: 449 0686 IF .flag 

: 450 0687 THEN 

; «4451 0688 GIN 

3 $28 0689 ! There is a Literal, so print it. 

s 65 06 ! The flag value returned by displacement() 

> 454 0691 ! distinguishes when there should be a ‘'#', 

; 455 069 ! as opposed to when the number is actually 

3 £28 Rene ! a displacement off a register. 

> 458 695 IF .flag GTR 0 ! If its a literal, 
3; 459 0696 THEN 

: 460 0697 4 BEGIN 

: 461 be8 4 append('#'); 

; 186 699 4 

; 46 700 4 ! except for a# mode, Make eee ceres neq pc_reg so that 
3; 464 701 4 ' Later only checking that will also tell us 

3; 465 , ¢ ? ! that .flag is gtr 0. 

: 46 704 5 IF not deferred(.dom_mode) 

$ 705 4 THEN 

3; 469 7 4 dom_oprnd = pc_reg +1; 

: 470 7 4! END . 

3: 471 7 3 4! ELSE ! Else, for displacements, 
: 67 7 4! BEGIN 

3 467 710 4! OWN 

> 474 711 4! displ_id: VECTOR(4,BYTE) 
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12-888713 4 94:36:88 DIEKSVMEHASTER-LADA SRC SDECODE .832; 1 


INITIAL( BYTEC 'B’, ‘W', *2", "L") ); 
! Print an indication of the displacement size. 
append_string(1, displ_id C.disp_size-1]); 
ere 


! Output here is always ‘‘displ(reg)'', for non-PC 
! displacments, and just ‘effective’, otherwise. 


jon 

AND = Output instruction's operand 
! 

! 

' 

' 

! 

' 


ee anehten EQL pc_reg ! If PC relative or absolute, 


BEGIN 
IF .flag LSS 0 ! If PC relative, 
THEN 
BEGIN 
disp_size = 4; 
dispT = displ + ,stream_ ptr; ! Make an effective address 
Slime ced 03; ! Output relative address 
S ! Else, if absolute address, 
cup append_address(.displ, 1); ! Output absolute address 
ELSE 
BEGIN 


! Literals or real (non-PC) displacement modes. 


append_hex(.displ, .disp_size); 


! Output Literal or offset, 
last_literal_value = .displ; 


! Save last Literal value 
I LSS 0 ! If relative (from register), 
- put_reg(.dom_oprnd, round_brackets); 


! No Literal or displacement -> we must have some type of 
! register reference. Sort out the few cases and print them. 


SE 
it coptstr<.den_node) 
put_reg(.dom_oprnd, no_brackets) 


BEGIN 
put regt dom oprnd, round_brackets); 
F autoinc(.dom_mode) 
THEN ere) 
appen : 
ND: 


RETURN ss$_normal; 


Se ee 


18 | 
(4) 
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Oe 2008 INS_OPERAND = Output instruction's operand 1 ta 1 94:38:88 DISKSVMSMASTER: CSDA.SRCJDECODE .832;1 me (4) 
40 181 P.AAD: .ASCII \@\ : 
g 18 P.AAE: .ASCII \=\ j 
1B5 P.AAF: .ASCII \A\ 3 
B 001B4 P.AAG: ASCII \+\ : 


O7FC 00000 INS_OPERAND: 
WORD 


Save R2,R3,R4,R5,R6,R7,R8,RI,R10 


0000v CF 9€ MOVAB APPEND STRING, R6 : F 

38 F6 OA : 8609 MOV INS_OPERAND, R5 : ; 
E 0c ¢ 0008 SUBL2 #127 SP : : 
7E 04 AC 7D 0000 MOVG INDEX, =(SP) + 0628 ; 
0000v CF Q FB 91 CALLS #2, BRANCH_TYPE : : 
03 : 001 BLBC =._-«aRO,._*18 : ’ 
00D0 31 OO01A BRW 3 : ; 

52 6B 04 4 €E 0010 1$: EXTV #4, #4, (STREAM_PTR), DOM_MODE + 0645 ; 
54 68 04 9 EF é EXTZV #0, #4, (STREAM~PTR). DOM~OPRND + 0646 : 
04 D1 000 CMPL DO_MObE. ry + 0652 : 
11 12 O002A BNEO § F F 

58 06 90 C INCL § STREAM_PTR + 0657 ; 

7 04 AC 70 000 MOVG INDEX, ~=( + 0658 3 
6 92 FB 000 CALLS #2, INS_OPERAND : : 
17 0 € 0003 € ‘STATUS, : : 
2 D 0038 PUSHL #2 > 0659 ; 

0091 31 OO03A W 14$ : ; 

7E 04 AC 7D 00030 2s: OVQ INDEX, (SP) + 0667 ; 
08 AE 9F 00041 PUSHAB DISP_§1ZE ; ; 

10 AE 9F D044 PUSHAB DISPC : : 

18 AE OF 00 47 PUSHAB FLAG ; ; 

0000v CF 0 FB 004A CALLS #5, DISPLACEMENT : : 
01 0 : O004F 3$ BLBS § STATUS, 4$ : ; 
4 0005 RET : ; 

53 04 00053 4$ CLRL = RB + 0674 : 

52 D3 0005 TSTL DOM_MODE F : 

1 3 7 BGEQ $ $ 3 

0g 0059 INCL  R3 : ; 

06 E 0058 BLBC §§ DOM_MODE, 5$ : : 
51 98 AF F 00 MOVAB P.AAD, Ri > 0676 F 
09 11 000 BRB 6$ : ; 

07 2 p} 0064 5$ CMPL DOM_MODE., a7 : 0678 : 
0 oh . BNEQ $ Py Py 

51 91 AF 9E 0006 MOVAB P.AAE, R1 + 0680 ; 
50 01 p D060 6$ MOVLso#ti : : 
6 0 JSB APPEND STRING ; : 

51 AE £9 00072 7$ BLBC FLAG, 13$ : 0686 : 
AE p 00 TSTL > 0695 : 

1 00 BLEG 369 : F 

53 80 Ar 9€ 000 ROVAB P.AAF, R1 > 0698 ; 
OC : é 

} 00 JSB APPEND _STRING ; : 

3 EF 000 BLBC : 3 0704 ; 
i 35 60 0008h 8S: ADEE. Bh GT DDR OP RN : 07 : 
: : ; ; 

OF 54 D1 000 oF: CMPL DOM“OPRND, #1 ; $798 ; 
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> BNEQ 1 ; ; 
08 AE ; 3 TSTL FLAG + 0726 : 
B BGEG 10$ : ; 
6E 4 D 9 MOVL DISP_SIZE + 0729 : 
04 AE BC 9A ADDL2 STREAM_PTR, DISPL : 0730 : 
5 D4 CLRL = (SP) : 0731 ; 
0 1 000A BRB 11 : ; 
1 DD QOOA2 10$:  PUSHL #1 + 0734 : 
08 AE DD O00A4 11$:  PUSHL ODISPL F : 
0000v CF 0 FB A7 CALLS #2, APPEND_ADDRESS : F 
Bb AC BRB 1 : 0723 : 
6E DD OOOAE 12$:  PUSHL ODISP_SIZE + 0741 ; 
08 AE DD 0008 PUSHL DI pc ; : 
0000v CF 02 F B CALLS #2, APPEND HEX : 
FD99 «CF 04 AE OD B MOVL DISPL, LAST_LITERAL_VALUE t 0742 
08 AE D 08 TSTL FLAG + 0744 
3A 1 C BGEG =-*'16$ ; 
: D4 9¢ CLRL =(SP) + 0746 
: 11 000¢ BRB 148 : 
05 2 D1 000C7 138:  CMPL = DOM_MODE, #5 + 0754 
B 12 OCA BNEG 15$ : 
1 oD 000¢C PUSHL #1 : 0756 
4 DD OOOCE 14$:  PUSHL DOM_OPRND : 
0000v CF 02 FB 000D CALLS #2, PUT REG : 
16 11 0 D BR 16$ : 
7E D4 00007 15$:  CLRL -(SP) > 0759 
54 DD 00009 PUSHL  DOM_OPRND : 
0000v CF 08 FB 00D CALLS #2, PUT_REG : 
OA i 90E BLBC =_«aR3,_:16$ : 0760 
51 FFI8 = CF : OE MOVAB P.AAG, R1 + 0762 
50 01 D0 O00E MOVL #1, RO F 
66 16 000EB JSB APPEND_STRING ; 
50 1 DO OOOED 16$:  MOVL #1, RO : 0765 
04 000F0 RET : 0767 


; Routine Size: 241 bytes, Routine Base: Z$DEBUG_CODE + 0185 
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; $ 7 1 ZSBTTL "BRANCH_TYPE = Handle branch operands’ 

3 7 1 ROUTINE branch _type(index, opcode): ptr_linkage = 

: age ae 

3 ure 7 Decide if the current operand is using branch type 

3 “7s (1 addressing. ft so, print out the reference an 

3 8 774 «1! look after all the details. Otherwise return 

; 9 “nme and let someone else handle it. 

; 540 78 1! 

3; 541 777 «1+! Inputs: 

: tg 78 1! 

; 54 779 «1! stream_ptr = a pointer to ihe current dominant mode byte. 

; 544 780 1! index = which operand (ordinal) we're working on. 

; «545 yor 2.3 opcode = The opcode we are currently working on. 

$ re fi ¢ : } (This parameter has already been validated.) 

3; 548 0784 1 ! Routine value: 

; 549 14 8. 

3 220 44-43 : Routine value is true if the current operand is a branch, else false. 
3 226 0788 1! If the current operand is a branch, the reference is appended 

; Zo 0789 1! to the output buffer and the stream pointer is updated. 

3; 554 0790 1 !-- 

3 399 0791 #1 

>; 556 0785 BEGIN 

; par 079 

; 558 0794 EXTERNAL REGISTER 

; 559 0795 stream_ptr=11; ! Points to the instruction stream 
; 560 0796 

; 561 079 LOCAL 

3 206 0798 n_ops, ' number of operands for current opcode 
; 0799 disp_size, ' size of branch operand, in bytes. 
3 He} Bent displ; i the actual branch displacement. 
3 208 $80 ! There is no point in even considering branch type 

; 56 080 ! addressing unless we're on the Last operand for 

3 208 ane ! this instruction. 

5 ao0 Bans nops = .lib$gb_opinfo C.opcode, op_numops]; 

s 7 0808 IF .n_ops NEQ . index 

s 3° 8 TH 

3 ie ei RETURN false; 

: Hf i ! Now we know we can take the op_br_type field Literally. 

3; 57 1 ! it contains the number of bytes used for the branch 

; 578 14 ' displacement. 0 in this field indicates that 

; 579 + ' this opcode has no branch type operands. 

3 1 3 disp_size = .Lib$Sgb_opinfo C.opcode, op_br_type]; 

; i$ If .disp_size EQL no_branch 

3 ’ THEN 

3 5 RETURN false; 

: ; § probe(.stream_ptr,.disp_size); ! Exit if we can't read displacement 


9 
tion decoder 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-74 Pp 

TYPE = Handle branch operands 1 ~300 7} 38% 94:38:88 DIEKSVMGHASTERCLSDA-SRCIDECODE .832:1 ey: (83 
! 


LABS INS .DECODE 


l 
B 
58 
91 ! handle this by simply extracting the field, (w 
3 ! extension es per srm), printing out the reference, 
9 ' and return 
94 ' 
95 
22 
98 


ng @ pointer to the next instruction. 


stream_ptr = .stream_ptr + .diSp_size; 


' Success! We neve discovered : case of branch fype gdéressing. 
m } sign 
append_address(.stream_ptr + .displ, 0); ! Output relative address 
1 


599 

600 8 

601 RETURN true; 
60 0 

60 08 END; 


003C 00000 BRANCH_TYPE: 
ORD 


displ = .(.stream_ptr)<0,.disp_size*8,1>; 
. Save R2,R3,R4,R5 3; 0769 
55 000000006 EF 9€ 0000 MOVAB LIB$GB_OPINFO{, RS : 
54 000000006 cF 9E 000 MOVAB LIBSGB~OPINFO2, R4& ; 
52 4 0 1 MOVL #4, OFFSET + 0806 
51 08 AC D 1 MOVL  OPCODE, R1 F 
3 4 0001 CLRL = R33 : 
FD soBF 1 91 19 ¢ R1, #253 ; 
08 13 00010 BEQL I$ ; 
06 1F INCL R : 
50 6241 : 1 MOVAQ (OFFSET) ERII, RO ; 
50 55 ¢ 3 ADDL2 R5, R ; 
gC 11 BRE 2s 3 
50 51 F8 BF 78 OO02A 1$: ASHL #8, R1 RO F 
50 6240 i 0 f MOVAQ (OFFSETSCROJ, RO : 
50 54 0 000 ADDL2 R4, R : 
50 60 04 9 EF 00036 2$: EXTZ2V #0, #4, (RO), N_OPS ; 
06 AC D1 000 CMPL  N_OPS, INDEX : 0808 
¢ 1 9 F BNEQ 58 ; 
52 D 1 MOVL #7, OFFSET : 0817 
09 3 E 044 BLBC Oi ; 
20 624) ; 047 MOVAQ (OFF SETDER1I, RO : 
0 35 C 048 ADDL2 R>. R ; 
U ° 
50 1 F8 gf +, 50 3$ ASHL #8, R1 RO ; 
0 6240 7 MOVAQ (OFFSETSCROJ, RO : 
34 C ADDL2 ‘ ; 
50 60 04 4 F C 4$ EXTZV #4, #4, (RO), DISP_SIZE ; 
1A BEQL ; 9819 
51 0 7 ASHL —s #3, DISP SIZE, R1 > 0832 
52 68 1 EE EXTV. #0. R1, TSTREAM PTR), DISPL ; 
B ¢ C ADDL2 DISP_SIZE, STREAM_PTR : 0833 
E b4 F CLRL. = : 08 
6248 OF 1 PUSHAB (DISPL)CSTREAM PTR} : 
0000v CF F 74 CALLS #2, APPEND_ADDRESS : 
0 p 0079 MOV #i, RO : 0837 
4 0007C¢ RET : 


So 


re 
3 
Voee green BRANCH TYPE yo branch operands 1b-sep-1964 93:38:88 Be KSVMGMAS FERSCSDACSRC SRC JDECODE .832;1 ye B vi 
50 yi p9070 5$: cEat RO i 0839 


; Routine Size: 128 bytes, Routine Base: Z$DEBUG_CODE + 02A6 


LABS INS .DECODE 


605 


Aro 
BRIE 


— st a 2 a 


BNAOVEWN —"OOONOULWH—O 


Mrororororororfnoery 


PAAAAAAASAAAAAAAAAOAOOOOSOOOAOOCOO 
wy Wpinuuins 
OUP OC ODNOURWN—OO 


ISSISSISS95 


POO AAAAAAO 
PADMA AMIUIW 
DONO UE WO 0OnN 


33 


Segoe oe Se 


SARASLS 


Instruct 
DISPLACE 
40 1 
rk 1 
44 1 
te 
oh 1 
rt 1 
849 1 
850 1 
Bay 
0858 1 
54 1 
855 1 
528 1 
857 1 
0858 #1 
0859 #1 
0860 1 
0861 1 
oes 1 
0865 1 
0864 1 
se 
Obs? 1 
0868 1 
869 1 
870 1 
871 
bays 
87 
0874 
0875 
gare 
087 
0878 
0879 
0880 
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ZSBTTL "DUSPLACERENT = Determine size of operand’ 
ROUTINE displacement (flag, displ, ptr_disp_size, index, opcode): ptr_Linkage = 


' Return any displacement associated with the current operand of pe 
urrent instruction. Note that for short Literals, the literal is returned 

n DISPL; for displacement mode instructions, the actual displacement is 

returned in DISPL; and for PC Mode instructions, the displacement is returned 

in DISPL. For other mode instructions, the routine effectively No-ops. 


Inputs: 


stream_ptr = Where the current operand specifier starts. 
flag = Where we indicate the displacement type 

displ = Where we put the actual displacement 
ptr_disp_size = Number of bytes in the displcaement 
index = Designates the Current operand 

opcode = Number of opcode of current instruction 


Outputs: 


RO = status code 

flag = 1 if literal, -1 if displacement, 0 otherwise 
displ = Displacement or Literal value 

ptr_disp_size = Number of bytes of displacement 


The stream pointer is updated to the next operand or address 
of the same operand if a displacement wasn't found. 


BEGIN 


MACRO 
short_literal_mode = (.mode LEQ 3 AND .mode GEQ 0)% 
displacement_mode = (.mode LEQ 15 AND .mode GEQ 10)&, 
pc_mode = (.reg EQL pc_reg AND (.mode EQL 8 OR .mode EQL 9))%; 


EXTERNAL REGISTER 
stream_ptr=11: REF BLOCK C,BYTE); 


Points to the instruction stream 


flag: REF VECTOR, 
displ: REF BLOCK, 
opcode: BLOCK 
ptr_disp_size: REF VECTOR; 
LOCAL 
req, ‘ nogtuter in operand specifier 
mode; ! Mode in operand specifier 


re -Stream_ptr Careg); 
aole = stread ptr faspl mode); 


! Get past operand specifier byte 
stream_ptr = stream_ptr (next_field(1)]; 


on 


<r 


= 
w 
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H 666 97 
: oer 98 SELECT OM true OF 
: 29? si short_literal_mode): ! Short Literal mode 
: ge O08 ! Short literals only allowed on read-onl operands 
; o08 ae7 Han: SO .SP ate C.opcode, op_datatype(.index)] NEQ access_r 
: £90 905 RETURN Lib$_noinstran; ! then return invalid instruction 
; 671 ! Extract the gyaber from ogeran¢ specifier 
: ore 90 displ {5.0.3 0] = .mode<0,2,0>*4 OR .reg; 
: 67 908 flag = 1; ! Say its a Literal 
; 674 90 ptr disp_size (0) = 1; 
; of? 319 ETORN sS$_normal; 
: oft O31 § bstaplacenent mode): ! Displacement modes 
; 679 914 flag (0) = -1; ! Say its a displacement 
; 680 0915 ptr_disp_size [0] = 
: ret bai8 2 TCASE “ods FROM 10 TO 15 OF 
: rey bai8 4 1o-183: 2; ! 2 bytes of displacement info 
> 684 919 4 14,15]: 4; ! 4 bytes of displacement info 
3 oa? +4 4 CINRANGED : 1; ! 1 byte of displacement info 
: 687 $9 é ' Save off the displacement 
; 688 09 block C.displ,0,0,52,0) = .stream_ptr (0,0 oe .per 130 gize C0J,1); 
; 689 0924 stream_ptr = stream_ptr Cnext_field(.ptr_disp_size C033); 
3 o3y 44 5 oe ss$_normal; 
; 69 0937 Cpc_mode): sadinn ! PC Modes 
3 69% 0929 flag CO) = 1; ! Say its a literal 
3 $3? 8 ? Hi ggnete EQL 9 
; $99 0382 ptr_disp_size [0] = 4 ' 4 bytes of address 
: 63 Oaez ! Else amount of displacement is dependent upon instruction 
: 700 935 tr_disp_size [0] = ins_context(.index, .opcode); 
; 701 $9 block [7dispt.0.0, ; 0] = .Stream_ptr Coco LBsMING ett _disp_size C0], 4), 0); 
3 nR , F .ptr_disp_size C01 GTR 4 
: 704 9 5 RETURN Lib$S_numtrunc; ! Can't handle quad or oc ravords yet. 
: 705 0 stream_ptr = stream_ptr Lnext_field(.ptr_disp_size (0J)J; 
3 r 1 RETURN ss$_normal; 
; 70 § END; 
; 708 COTHERWISE): 
3; 709 4 EGIN ! None of the above, so No op. 
; 710 5 flag (0) = 0; ! Not a displacement 
3 711 § ptr_d £B-8 88 583 = 0; 
3 ar displ (0,0, = 0; 
3; 8 ' Back over the byte we pevonced over gorltor 
; 714 stream_ptr = stream_ptr (next_field(0)j; 
3; 715 0 RETURN ss$_normal; 
: rg 1 END; 
: 71 ¢ TES; 
; 718 
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vane bo" ISPLACEMENT = Determine size of operand 18:8 Sep =1382 9}: 38; a DISKSVMSMASTER:CSDA. She DECODE .B832; iP (BS 
45 BC D4 00147 CLRL @PTR_DISP_SIZE 3: 094 
BC D4 14A CLRL soish 3 094 
50 b° 138 238: eee wi, R : Boee 


; Routine Size: 337 bytes, Routine Base: Z$DEBUG_CODE + 0326 
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HOe2008 INS_CONTEXT = Determine operand type 1 ~3ey7 138i 93:38:88 DLSKSVMGHASTERSLSDA SRC SDECODE .832; 1 ’ 3 v0 

; Fei TF 1 ZSBITL ‘INS_CONTEXT = Determine operand type’ 

es ¢ 9 § 1 ROUTINE ins_context (index, opcode) = 

: HS 388 

3 fe9 989 1! This routine decides what context applies to the given 

eB § 960 1! operand for a specific opcode. It is used because we need | 

. 961 1! to know whether a pc-relative mode for this operand would 

3 4 : he : require a byte, word, longword, or quadword operand. 

; 730 0964 1 ! Inputs: 

s 735) 0965 1! 

Te ¢ 836 1! index = Which operand we're dealing with. This number 

; £ 967 1! must be 1, 2, ... 6. 

3; 734 0968 1! opcode = The opcode we are currently working on. 

: 735 0969 1! (This parameter has already been validated.) 

s 7 0970 1! 

3 for 0971 1 ! Routine value: 

; ri 0972 1! 

; 739 0975 1! If some error is detected, we return false. Otherwise we return 

; 740 0974 1! the number of bytes from the instruction stream that the current 

: oe Bar? : operand reference should consume. 

: 74 0977 1! The value, 0 to 3, stored in the op_context field is simply 

; 744 0978 1! our encoding of 4 values into a 2-bit field. The ‘number of 

3; «745 0979 1! ~~ bytes’ entry, above, is the number we are actually after. 

3: 746 0980 1 !-- 

: 747 0981 1 

; 748 098 BEGIN 

; 749 0 

; 72 0984 ' : 

3 fol 0985 ! check for any of the res young error conditions: 

: r3¢ 0986 ; 1) we don't recognize this opcode. 

; 0987 : 2) we don't have enough information about it. 

; 754 0988 : (ie - it is reserved or yet to be defined). 

3 foe 0989 : 3) we know about it, but don't believe that it 

; 756 0990 ' should have as aang operands as what 

3; 757 0991 ! ‘index’ implies. this check is necessary 

; 758 099 ‘ because the ‘nul’ entry in the opinfo 

s 099 : declaration macros results in the same value 

: 760 0994 ' being encoded as the th ones do. since 

; 761 0995 : we can cross-check for this error at this 

; 7 099 : point (by looking at the op_numops entry for ‘ 

; 76 099 : this opcode), it did not seem worth taking up more 

3: 764 443 ‘ bits in the opinfo table to differentiate ‘nul' 

: 765 99 ! and the others. 

3 266 1000 : 

3; 7% 1001 

3 roe : 4 If .Lib$Sgb_opinfo C.opcode, op_numops] EQL not_an_op 

3 aa Inne RETURN 0; ! Error 2, see above. 

; oe 1006 If _.tibSgb_opinfo C.opcode, op_nunops] LSS index OR .index LEQ 0 

3 ore ' 3 RETURN 0; ! Error 3, see above. 

: 77 1010 ! now it is just a matter of looking into our opinfo table 

Oe 1011 ! where we get 0, 1, 2, or 3. this just happens to be 
i 
| 


LIBSINS_DECODE Instruction decoder 16-50 Sep-1 VAX-11 Bliss-32 V L 
1Oe2008 INS_CONTEXT = Betermine operand type =300 71382 9}: 38; 3g DISK SVMSMASTER: cepa she DECODE .832;1 eve 3 ve 
s 778 101 ' the power of 2 which we need to calculate the number : 
; 444 1918 ! of aotes occupied by the corresponding operand. . ; 
3 rai 1915 RETURN 1 * .LibSgb_opinfo C.opcode, op_context(.index)]; ; 
: rR 1019 END; : 
003¢ 00000 INS_CONTEXT: | : <a at bho sens 3 
. ave “ : 
55 000000006 EF 9E 9002 MOVAB LIB$GB_OPINFOI, RS : : 
54 000000006 FF 9E 0000 MOVAB LIBS$GB-~OPINFO2, R4 ; 
50 4 00 0001 MOVL #4, OFFSET : 1002 : 
52 08 AC D 9001 MOVL  OPCODE, R2 ; ; 
53 D4 0001 CLRL R3 ; : 
FD =soaBF 52 (91 90019 CMPB—saR2, «#253 : : 
o¢ 13 0001D BEQL 1$ : : 
5 06 0001F INCL R3 ; : 
51 6062 E 00021 MOVAQ (OFFSET)CR2], R1 : : 
50 51 55 C1 00025 ADDL3 RS, R1, RO : : 
0¢ 11 00029 BRB 2s : : 
51 52 F8 8F 78 000 8 1$ ASHL #-8, R2, R1 : : 
50 6041 7E 000 MOVAG (OFFSETSCR1J, RO ; ; 
50 54 CO 00034 ADDL2 R4, R ; : 
OF 60 04 00 ED 00037 2$ CMPZV #0, #4, (RO), #15 ; ; 
5D 13 0003C BEQL ; 3 
50 04 pO 0003E MOVL #4, OFFSET : 1006 : 
OA 53 9 00041 BLBC R 3 : 
51 6042 E 00044 MOVAQ (OFFSET)CR2], R1 F 
50 51 55 C1 00048 ADDL3 R5, R1, RO : 
g¢ 11 0004¢ BRB : 
51 52 Fa F 78 O06 3$ ASHL #-8, R2, R1 : 
50 6041 7E 0005 MOVAQ (OFFSETSCR1J, RO ; 
50 54 C0 90037 ADDL2 R4, R : 
06 ac 60 04 99 ED O005A 4$ CMPZV #0, #4, (RO), INDEX ; 
9 19 00060 BLSS 7$ : 
06 AC D 006¢ TSTL INDEX : 
34 15 0006 BLEQ $ ; 
50 046 «AC 02 C7 00067 DIVL3 #2, INDEX, RO : 1015 
50 4 CO 0006C ADDL2 #4. OFFSET : 
QA 5 59 O06 BLBC R3, 5$ ; 
1 604 : : MOVAQ COFFSET)CR2I, R1 ; 
50 51 55 C1 0007 ADDL3 R RO : 
g¢ 11 OOO7A BRB : 
51 52 8 F 78 O0007C 5$: ASHL #-8, R2, R1 : 
5 6041 7 0 1 MOVAQ (OFFSETSCR1J, RO F 
50 54 C ADDL2 R4, R ; 
51 06 AC gi 0 EF 6$ EXTZ #0, #1, INDEX, R1 ; 
52 0 : 1 fF f EXTZV at: #3, (RO), R2 : 
0 83 2 5B 96 ASHL R2. #1. RO : 
04 9A RET : 
50 D4 98 7$: CLRL RO : 1017 
04 9D RET : 


——— ee + rc 


voesOuon oe Ing CON FER? 7 S5 yo operand type 1p-te 300-1382 9}: 38: 4 Mt 


; Routine Size: 158 bytes, Routine Base: ZS$DEBUG_CODE + 0477 


Bliss-32_v4.0-7 : 1 
SMA ae 3 


X=11 
SKSVMSMASTER:CSDA. $C DECODE .832;1 ) 


SSIFAREUNSLSSSVEARUN LS Save nara =osen 


S 
-o 


10 
tion decoder 16-5e -1984 01:52: VAX=11 Bliss-32 V4.0-74 P 
- Print a register name 1 30071382 94:38:88 DL SKSVMSMASTER-CSDA.SRCSDECODE.B32:1 oe (BS 
ZSBTTL 'PUT_REG = Print a register name’ 
ROUTINE put_reg (reg, cs_flag): NOVALUE = 


' = 
! This routine takes 1 parameter which it assumes is 


the number of a vax register. It then prints out 
'r’ followed by the muiber tin dec eel). unless the | 


2-7 
mc 
ao 


register number is ‘special’. These include: 
Register number Special name 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: An additional parameter is used as a flag to indicate 
; whether the register reference should be enclosed in 
round/square brackets or not. 

! 

i 

i 

i 

! 

i 

i 

i 

'e 


Inputs: 


SOWONAMNE AN $C OONOUES WH —"O0O | 


reg = The register number. 
cs_flag = A flag to control printing before/after REG. 


1 

rk Outputs: 

44 

45 None. 

B66 - 

04 
8 BEGIN 
04 
050 LOCAL 
051 index; 
036 
05 BIND 
054 enclosing_cs = UPLIT BYTE('(' . oa we aa) VECTOR C,BYTE), 
036 regnames = UPLIT WORD('AP', 'fP', *SP*, "PC'): VECTOR C,WORD); 
05 

058 If we are to put out any enclosing strings, 

05 then we have been passed the INDEX which we 


need to pick this string out of the above 
vector. 


Wn—Ooo 


SESS 


index = .cs_flag; 

IF .index NEQ no_brackets 

THEN 

append_string(1, enclosing_cs C.index]); 


SES 


PEPRIPOPOPOPOPOPOPOPOPOPOPONIPONIPOPOPIPOPUPIPIPONIPIYD 8 2 ot 2 tt 
° 


& 


fwn—0O0e 


! Now print the actual register reference. 
IF .reg LSS ap_re 

THEN ° eth 

BEGIN 


NN 


10 
truction decoder 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-74 
- Print a register name 1 =30071 382 94:38:88 DLSKSVMGMAS TER CSDA-SRCIDECODE.B32:1" 29° (BS 


LABS INS .DECODE in 


“ny 
27 
mec 


C 
REG 
; 84 107 append('R'); 
3 4 107 pppena fos that t. FOG?) 
; 44 107 E 
3 45 1 4 EL 
: rf ! 4 append_string(2, regnames(.reg-12)); 
; at8 : 1 ! See again if there is any enclosing string. 
3 B20 10 i IF .index NEQ no_brackets 
; «851 1084 THEN 
3 £26 1085 append_string(1, enclosing_cs C.index+1]); 
5 S2 1 56 
> 854 108 END; 
8 0515 P.AAH eASCII NON : 
b218 eASCII NDN : 
B 0051 ASCII vA : 
D b2i8 eASCII NIN : 
B21 -BLKB 1 
50 41 SIA P.AAI eASCII \AP\ : 
50 28 051C eASCII \FPN\ : 
50 2 OS1E ASCII \SP\ : 
43 § b258 ASCII \PC\ ; 
5 00522 P.AAJ eASCII \RN : 
ENCLOSING_CS= P.AAH 
REGNAMES= P.AAI 
OFFC 000 PUT_REG:.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 1019 
54 0000v CF i 002 ~~" "MOVAB APPEND STRING, R4 ; 
52 08 AC D 00 MOVL C FLAG, INDEX > 1064 
53 D4 00008 CLRL : 1066 
01 S52 01 00D CMPL INDEX, #1 3 
9 13 319 BEQL 1 ; 
D6 0001 INCL R é 
51 DA AF42 9 014 MOVAB ENCLOSING_CSCINDEX], R1 3; 1068 
50 01 p 019 MOVL ’ 3 
64 D1C JSB APPEND STRING : 
0c 04 Ag D1 $3 1$: CMPL REG, #T : 1072 
1 18 ’ BGEQ 3 
3} DS AF 9 024 MOVAB’ P.AAJ, R1 : 1075 
0 01 OD 8 MOVL & R 3 
64 1 8 JSB APPEND_STRING ; 
04 AC ODD PUSHL R ; 1076 
0000vV CF 4 + y! CALLS #1, APPEND_DECIMAL : 
a 00 BRB 3$ : 107 
0 06 =A 0 23: MOVL REG, RO : 107 
1 AO AF4 MOVAW > a emia R1 3 
0 02 OD MOVL #2, RO 3 
1 JSB APPEND. STRING F 
A 3 3$ BLBC R3, 4 3 1083 
1 A7 AF MOVAB ENCLOSING _CS+1CINDEXJ, R1 > 10 
0 2 g MOVL #1, R 3 
4 JSB APPEND_STRING : 


LBS INS .DECODE 


; Routine Size: 


83 bytes, 


Routine Base: ZSDEBUG_CODE + 0523 


Instruction gecoder 18-5ep-1 
PUT_REG = Print a register name 14-Sep-i 
04 00052 4$: 


bc 13:08:38 


RET 


VAX=11 
DISK$V 


ets lLiss-32 V 
SMASTER: 


XbA sheSpecove.032;1°2%° «as 
; 1087 


LABS INS .DECODE 


APPEND_ADDRESS - Symbolize value and append it 1 


' 


—— 
Oo 


Instruction decoder 16-50 


8 13:58:58 


000C 00000 are 


VAX-11 Bliss-32 V 


DISK Syms 


; § 1 $ 1 ZSBTTL ‘APPEND_ADDRESS - Syabet ize value and a pegend it’ 

: : ! ROUTINE append_address (value, absflag): NOVALUE = 

Bo Ble 

: 1 1 g 1 / This rout ine converts : tases absolute value to a symbol 
3 o¢ 1094 1! and an offset (if possible) and appends the resulting string 
: } 95 : to the current output buffer. 

: 5 ! 3 ! Inputs: 

3 86 1 38 1 value = Absolute value to be converted 

3 ; 1391 : } absflag = True if absolute address, else relative address 
; ef 1108 Outputs: 

: if 1104 1! Either the hex value or the symbol¢+offset is appended. 

3; 87 1105 1 !<=<- 

3: «874 1196 1 

3 154 118 BEGIN 

; 87 1108 if, user symbol ize_rout ine EQ. 0 

: 879 Wit ev ge trrendahex(.value.4) 

> 881 114 BEGIN 

: BB 148 rottret ten 

3 re 

> 884 a for lef “VECTOR (2); 

; 885 111 are ete ne .user _butfer_ Left; 

; 886 1313 buffer_left -user buffer address; 

: 887 1139 fen .user “symbolize, rout ine) (value, bufter_ left, retlen,absflag) 
; Hs 1121 4 BEGIN 

; 890 11 ¢ 4 user_buffer_address = .user_buffer_address + .retlen; 

; 891 11 4 user_buffer_left = .user_buffer_left - .retlen; 

: 88 1135 3 ELSE 

; $9 1126 append_hex(.value,4); 

: 895 11 END; 

: 896 1128 

; 897 1129 1 END; 


Save R2,R3 
us R_BUFFER LEFT, R3 


USER, SYMBOL IZE ROUTINE, R2 


_BUFFER_LEFT, BUFFER_LEFT 
che “ADDRESS, BUFFER_LEFT+4 


MASTER: c3 SAS she DECODE .832;1 


te 


— 


5 
) 


1089 


1109 


es 
— 
ne 


coon 


| 


LAGS HS DECODE 


; Routine Size: 


Instruction decoder 1b-50 Sep-1984 VAX-11 Bliss-32 V Pa 
APPEND ADDRESS - Symbolize value and append it 7330-1382 93: 38: 3 DISKSVMSMASTER: cS OSRCSDECODE. B32;1 8 (3 
of AE or 1f PUSHAB BUFFER_LEFT : 
4 At F PUSHAB VAL é 
2 g 8 CALLS a6" s82) é 
0 5 BLB ; 
gf 8 MOVZWL Ref ; 1122 
FA OA C ADDL R Fe SUFFER ADD DRESS : 
5 6—E A SUBWe © RETLEN, OSER_BUFFER_LEFT : 1123 
0. RET 3 1119 
04 ODD 1$: PUSHL : 1126 
04 A 0D PUSHL VALUE 3 
0000vV CF 0 FB CALLS #2, APPEND_HEX ; 
04 4 RET : 1129 


65 bytes, Routine Base: ZSDEBUG_CODE + 0576 


LAGS INS .DECODE is 


vw 
mee 


3 11 

3 1} ° 
3 11 i 
; 90 1134 
: 1135 
; 905 11 § 
; 906 11 

; 907 1138 
; 908 1139 
; 909 1140 
: 910 1141 
; «911 1326 
3 aig 114 
; (91 1144 
3; 916 1145 
; 915 1108 
; 916 114 
: 917 1148 
; 918 1149 
; 919 1150 
; 920 1151 
: 921 1136 
3; 9 ; 115 
3 9s 1154 
; 924 1155 
; 925 1156 
; 926 1157 
: 927 1158 
; 928 1159 
3 368 1160 
: ¢ 1161 
3; 931 1196 
3 O36 116 
; 9 1164 
: «934 1165 
: 935 1166 
: 936 1167 
: 937 1168 
; 938 1169 


45 44 43 42 41 


oc 
4 


z*4 


ze 


= FOROPOPOPORU WII Rononononononononunnny 2 2 
= 


Py iecaaa variable size hex value 1b-te 308-138 93 38; 3 be KSVNEA nen 


BITL_ ‘APPEND_HEX - spear variable size hex value’ 
UTINE append_hex (value, bytes): NOVALUE = 


£$ xO 


fais peun rae appends a given hex value to the current output 
er. 


i Inputs: 


value = Absolute value 
bytes = Number of bytes to display 


{| Outputs: 


meme memes mr ms mrermreseres= DRE Pas 


The hex value is appended. 


BEGIN 


LOCAL 
number ; 


BIND 
digit_table = UPLIT BYTE('0123456789ABCDEF'): 


number = .value; 
IF .mumber LSS 0 
HEN 


VECTOR C,BYTE); 


! If negative value, 


' Output minus sign 


GIN 
append('-"'); 
i and print the absolute value 


number = -. number; 
END; 
+e i FROM .bytes*8-4 TO 0 BY 4 ! For each nibble, 


append_string(1, digit_table C.number <.i,4>]); ! Output the digit 


END; 
39 38 «37 36 «35 «34 «33 «32 «31 i? 60387 P.AAK: .ASCII \0123456789ABCDEF\ 
2D O005C7 P.AAL: .ASCII \-\ 
DIGIT_TABLE= P.AAK 


OFFC 00000 APPEND_HEX: 


-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


53 04 ac D MOVL VALUE, NUMBER’ 
0D 1 BGEG 6=:«*M$ 
51 Fe OAR OO MOVAB P.AAL, R1 
0 oi p C MOVL #i, R 
0000v F BSBW § APPEND_STRING 


$-32_V 
TERSCSDA  SRCSDECODE 832; 1° 8" (105 


TD, 


k 10 
LIBSINS_DECODE Instruction decoder 16-Sep-1984 01:52: VAX=11 Bliss-32 V4.0-7 8 
yoe~000 APPEND_HEX = Append variable size hex value 12: 305-1382 94:38:88 DISKSVMSMASTER: cSDAC sae DECODE .832;1 Page 435 
53 ¢ 1 MNEGL NUMBER, NUMBER : 116 
08 AC OD 15 1$: MOVL. BYTES, R2 + 116 
1 MULL2 #8, R2 : 
50 53 4 t ROSIE 28 eizy i : 1167 
CB AFG j ; ; HOVAB D Git tT’ TABLEEROI R1 : 
0080v 5 B BSBW  APPEND_STRING ; 
52 4 ¢ E 3$ SUBL2 #4, I F 
—B 1 j BGEQ 2 ; 
04 RET t 1169 


; Routine Size: 52 bytes, Routine Base: Z$DEBUG_CODE + 05C8 


TE - 


LIBSINS_DECODE Instr uct tion decoder 18-50 Sep-1984 VAX-11 Bliss-32 V4.0-7 jo 
Hoe 000 APPEND_DECIMAL = Append unsigned decimal value 1 300-1 88e 93 38: 3 DIS aKSVMGN TER: SDA Ske DECODE .832;1 P29 0439 vt 
; 940 1170 1 XSBTTL ‘APPEND _DECIMAL - - end unsigned decimal value’ 

> 941 1171 1 ROUTINE append— oot inet (va toe) : NOVALU E= Be Sei 

; 94 1128 1 

Boy ae aie 

: 945 1175 1: This routine appends a given unsigned decimal value 

: ae8 1128 ! to the current output butler.” ° mp 

; 368 168] j tneutss 

; 930 ie ! value = Number to be output 

: Seg igg | | Cutouts: 

; 94 1184 ve The decimal value is appended, without any padding or fill. 
; 956 1158 1 

s 957 118 BEGIN 

: 386 1189 5 LINKAGE 

; 360 1190 recursive_jsb = JSB: GLOBAL (number=2); 

: 96 1192 2 GLOBAL REGISTER 

Caen pene 

; 965 1195 ROUTINE output_remaining_digits: recursive_jsb NOVALUE = 

: 967 1197 EXTERNAL REGISTER number=2; 

1 Pet: ee ta ah emg 

3 char =‘ =nun er 

; 970 1200 number = pede 

; 97) 1201 IF .mumber NEQ 0 THEN output_ aii Sy digits(); 

3; 97 1208 ap end_string(1, char); 

| # 1303 3 BS 


5E 04 C2 00000 OUTPUT_REMAINING DIGITS: 
SUBL2 94, SP : 1195 
7E 00 52 01 7A 00003 EMUL #1, NUMBER, #0, -(SP) : 1199 
50 50 BE A 7B 00008 EDIV. #10, (SP)+, RO, RO ; 
6E 29 0 81 900 ADDB3 #48. RO, CHAR ; 
5 AC 1 DIVL2 #10, > 1200 
02 13 00014 BEQL si : 1201 
€8 1 O16 BSBB_ = OUTPUT_REMAINING_DIGITS : 
51 6E 9E 00018 18: MOVAB CHAR, R1 > 1202 
50 01 Q 018 MOVL #1, RO ; 
0000v O1E BSBW APPEND_STRING ; 
5E 04 £9 4 ADDL2 #4, SP : 1203 
4 SB ; 


; Routine Size: 37 bytes, Routine Base: Z$DEBUG_CODE + OSFC 


3: 974 1204 2 


LIBSINS_DECODE Instruction decoder =] VAX=11 Bliss-32 V4.0-7 40 
VOe000 APPEND “DECIMAL - Append unsigned decimal value 16 se0-1984 9}: 38: 3 DISKSVMSMASTER: cSpa see DECODE.B832;1 spo (11) 
: 975 1205 number = .val ye; 

; f ! : output_remaining_digits(); 

: 978 1208 1 END; 


OFFC 00000 APPEND_DECIMAL: 
WORD ave R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


52 04 aC 00 00 MOVL VALUE NUMBER’ 
D 30 000 BSB OUTPUT _REMAINING_DIGITS 


; Routine Size: 9 bytes, Routine Base: Z$DEBUG_CODE + 0621 


Be tetes 
ab ee 
Mmron— 
ooon 
oon 


N 10 
LIBSINS_DECODE Instruction decoder 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-74 Page 41 
be O08" APPEND_RADSO = Append RADSO characters 12-808- 1382 a Be DI SKSVMEMASTERSLEDA- SRC SDECODE 832: 1 . (12) 
; 980 1 98 1 SSBTTL pat = Append RADSO characters’ 
3 2 1 ! if : ROUTINE append_rad50 (nwords, words): NOVALUE = 
: 383 1 \¢ 1 I<. 
; 4984 12135 1! 
; 985 1214 1! This routine converts a series of RADSO words to ASCII and 
; ano : 1? : appends it to the current output buffer. 
: 988 1217 1! Inputs: 
; 989 1218 1! 
; 990 1219 1! nwords = Number of words to convert 
: 44! ! Y } words = Address of words to convert 
; 99 1 : 1 ' Outputs: 
; 994 1 zz 
; 995 1224 1! The string is appended, without any padding or fill. “ 
: 996 1 $2 1 !-=- : 
; 997 1226 1 
; 998 1227 BEGIN 
3; 999 1228 
: 1000 1229 Pp 
: 1) : ° words: REF VECTOR C,WORD]; ! Address of array of words 
: 1008 1 32 LOCAL | 
3 1004 123 number : WORD 
: 64 \S3e : char: VECTOR C3,BYTE); ! 3 character array 
: 1007 1236 INCRU word_number FROM 0 TO .nwords-1 ! For each word to convert, 
3; 1008 1237 dO 
3: 1009 S38 BEGIN 
3 ip? 1$72 3 number = .words C.word_number); ! Get value of word 
: 1018 1241 ; DECR i FROM 2 TO 0 ! For 3 characters, 
3: 101 iste dO 
3 1014 1243 4 BEGIN 
; 1015 1244 4 char C.i] = .number MOD 40; ! Get low order character 
3 1016 1245 4 number = .number / 40; ! and divide by 40 
ibe tee | Be 
: 1019 1248 INCR i FROM O TO 2 ! For each of the 3 characters, 
3: 1020 1s62 3 DO 
: 1021 1250 4 BEGIN 
: 10 § \$2! 4 SELECTONEU .char C.iJ 
3 10 1 26 4 OF 
3: 1024 1$3 4 
: 1025 1254 4 }: cher £.4} © * *s 
3 1986 1939 ; 10 26]: char - = sgher C.i] + A’ = 1; 
: : char C.ij = 5 
3 ioe8 1387 ? OTHERWISE]: char L.i] = .char C.i] + *." = 28; 
: 1983 1259 4 append string(t, char C.i)); 
3: 1031 1260 3 END; 
: 1035 1261 END; 
; 103 1 66 
3: 1034 126 END; 


LIBSINS_DECODE Instruction decoder 16-5 Sep-1984 VAX-11 s-32 V4. 4 
4002008 APPEND_RADSO - hopend RADSO characters ~300 138% 9}: 38; Hf Dts SK$V nen TER: Mba" She DECODE .B832;1 Page 35 


OFFC 00000 APPEND_RADSO: 


«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1210 
55 04 ac 1 ¢3 9002 SUBL3 #1, NWORDS, RS5 : 1336 
pA 9907 cLRL iyo NonBE + 1239 
54 08 BC4 60 000 1$ MOVW  @WORDSCWORD_NUMBERJ, NUMBER : 
0 02 1 MOVL #2 + 1261 
51 C 00013 2$ MOVZWL NUMBER, R1 + 1264 
7E 90 31 1 7A 00016 EMUL #1, R1. #0, =(SP) : 
51 1 : 8 ‘8 18 EDIV. #46, (§P)+° R1, R1 : 
6E4 19 MOVB R1, CHARCII ; 
51 4 3C 00024 MOVZWL NUMBER, R1 + 1245 
31 8 C6 0027 IvL2. #40, Ri : 
4 1 BO OO02A OVW R1, NUMBER ; 
£3 9 F4 00020 SOBGEQ I, + 1241 
52 D4 00030 im. § + 1248 
51 52 SE c 00032 3$ ADDL3 SP, I, R1 + 1251 
61 95 00036 TSTB Ri) > 1254 
05 \2 0005 BNEQ 4$ ; 
61 20 9 900 A MOVB #32, (R1) : 
18 11 0003p BRB ; 
1A 61 91 OOO3F 4$ CMPBs«(R1), #26 + 1255 
06 1A 00042 BGTR : 
61 40 8F 80 00044 ADDB2 #64, (R1) : 
OD 11 00048 BRB ; 
1B 61 91 0004A 5$ CMPB  =s-«(R1),-#27 + 1256 
05 12 00040 BNEQ : 
61 24 90 0004F MOVB #36, (R1) : 
03 11 00052 BRB ; 
61 12 80 00054 6$: ADDB2 #18, (R1) : 1257 
50 01 20 0057 7$: MOVL # : 1259 
0000v 9 OO05A BSBW APPEND. STRING : 
D1 52 Q F3 00050 AOBLEQ # 5 : 1248 
D6 00061 INCL  WORD_NUMBER : 1236 
55 53 D1 00063 8S CMPL WORD -NUMBER, RS : 
A3 1B 00066 BLEGU 1$ ; 
04 00068 RET : 1263 
; Routine Size: 105 bytes, Routine Base: Z$DEBUG_CODE + 062A 


11 
LIBSINS_DECODE Instruction decoder 1-Se 1984 01:52: VAX=-11 Bliss-32 V4.0-74 Page 43 D 
Vbe-000 APPEND_STRING = Append to output buffer 152868-1 384 93:38:88 DISKSVMSMASTER-CSDA- SRC IDECODE.B32:1 : (13) v0 
ZSBTTL_ ‘APPEND_STRING = Append to qutput buffer’ 
ROUTINE append string (length, string): append_linkage NOVALUE = 


So0m 
wa ey 


Fr 


oo 
WN O OONAOULSWN “OO DOONOUSwrn—oO 


Append a string to the current output buffer. 
Inputs: 


Length = Length of string 


string = Address of string 


S at et at ete 


user_buffer_address = Address of next available byte in user buffer 
user_buffer_left = Number of bytes left in user buffer 


Outputs: 
user_buffer_address, user_buffer_left are updated. 


BEGIN 
Seager meter Lars GEQ . length ! If enough room left, 
| 


MIVA 


BEGIN 

CHSMOVE(. Length, .string, .user_buffer_address); 
user_buffer_address = .user_buffer_address + .length; 
user butter lett = .user_buffer_left - .length; 


Os a ss = 9 2 4) = = 2 9 2 2 SS 2 a a 


MoPoPoRoPoPonorofnornoery» 
OOOO O00 00090 09 09 OO INI NS NINN NNO AAO 


FW 9 OCONAU EWN O ODNAOU SW OODONOUS 


—POPNIWWIWIWIR RPP) SS 


Pee Oe Ge Ge Se He Ge BH SHS Oe Oe FHSS Ose Se SHS Se Se Se Ss Se Se Sseteasese 
a a ek ek ed dd od dd = dd 
ou 


m 
z 
o 
e. 


007C 8F BB 00000 APPEND_STRING: 

PUSHR #*M<R2,R3,R4,R5,R6> 3; 1265 

56 50 00 00004 MOVL RO, R : 
56 F96A CCF 10 00 +3 0007 CMPZV) «#0, #16, USER_BUFFER_LEFT, LENGTH : 1286 

10 19 sit 3 BLSS 1$ : 
F95B sO 61 56 28 0001 MOVC3 LENGTH, (STRING), @USER_BUFFER_ADDRESS : 1289 
F336 CF 6 CO 00016 spa LENGTH, USER_BUFFER_ADDRESS : 1290 
F957 CF 6 A 00018 SUBW2 LENGTH, SERBUFFER-LEFT > 1291 
007C¢ F BA 85 1$: POPR #*M<R2,R5,R4,R5,RO> 3 1294 

5 00024 RSB : 

; Routine Size: 37 bytes, Routine Base: Z$DEBUG_CODE + 0693 


LAGS INS .DECODE 


; 1068 
; 1069 


: pee | Used: 
; Compila 


Z$DEBUG_CODE 


: Lines/CPU Min: $i2¢ 
3; Lexemes/CPU-Min: 23351 


tion Complete 


7 1°. 


Instruction decoder o-3ep- 4 VAX=-11 Bliss-32 v4. o 44 

APPEND. STRING = Append to output buffer pee iaets ak LS ee Set eS ne rt PY v0 
1295 1 END 

1596 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
1720 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


A 26 2S IB od pc io" ea Ae: pees Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 3 0 581 00:00.8 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DECODE/OBJ=0BJ$:DECODE MSRC$:DECODE/UPDATE=(ENHS$:DECODE) 
; Size: 1655 code + 65 data bytes 

: Run Time: :20.7 

; Elapsed otaes Olsee-4 


COMMAND QUALIFIERS 
165 pages 


IPMENT CORPORATION 
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